unit UretimTanimlari;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FormClass, XPMan, StdActns, ActnList, ComCtrls, cxStyles,
  cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB,
  cxDBData, cxImageComboBox, cxButtonEdit, cxDBLookupComboBox, cxSpinEdit,
  ADODB, cxGridLevel, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid;

type
  TfmUretimTanimlari = class(TfmFormClass)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    cxGrid1: TcxGrid;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    aqEntry: TADOQuery;
    dsEntry: TDataSource;
    cxGrid1DBTableView1ModelId: TcxGridDBColumn;
    cxGrid1DBTableView1Sure: TcxGridDBColumn;
    aqModelList: TADOQuery;
    dsModelList: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmUretimTanimlari: TfmUretimTanimlari;

implementation
uses data;
{$R *.dfm}

procedure TfmUretimTanimlari.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action := caFree;
  fmUretimTanimlari := nil;
end;

procedure TfmUretimTanimlari.FormShow(Sender: TObject);
begin
  inherited;
  OpenQueryOnDataSet(aqModelList.SQL.Text, aqModelList);
  OpenQueryOnDataSet(aqEntry.SQL.Text, aqEntry);
end;

end.

